home *** CD-ROM | disk | FTP | other *** search
/ MacHack 1993 / MacHack 1993.toast / MacHack™ 1987-1992 / MacHack™ '90 / Other Stuff / Demos ƒ / Demo AppMaker / Demo AppMaker™ / Demo AppMaker™.rsrc / TmpC_402_DoMenuItem.File < prev    next >
Encoding:
Text File  |  1990-03-23  |  599 b   |  32 lines
  1. %if MenuItemName = New%
  2. %elsif MenuItemName = Open%
  3. %elsif MenuItemName = Close%
  4. %elsif MenuItemName = Save%
  5. %elsif MenuItemName = SaveAs%
  6. %elsif MenuItemName = Quit%
  7. %elsif MenuItemName = Revert%
  8.     /*----------*/
  9.     void DoRevert (void);
  10.     void DoRevert ()
  11.     {
  12.         Str255            fileName;
  13.         Boolean            okay;
  14.     
  15.         okay = true;
  16.         if (cur->dirty) {
  17.             GetWTitle (curWindow, fileName);
  18.             ParamText (fileName, "", "", "");
  19.             okay = Confirm (RevertID);
  20.         }
  21.         if (okay) {
  22.             okay = ReadApplFile (cur->fileNum);
  23.         }
  24.         if (okay) {
  25.             InvalRect (&curWindow->portRect);
  26.         }
  27.     } /*DoRevert*/
  28.  
  29. %else%
  30.     %DoMenuItem%
  31. %end if%
  32.